Przekrój ostrosłupa prawidlowego 
sześciokątnego płaszczyzną równo-
ległą do podstawy ostrosłupa.

Opracował: Piotr Leszczyński

Przesuń dowolnie punk G wzdłuż wysokości SO.

POKAŻ PŁASZCZYZNĘ PRZEKROJU

Pole przekroju =

Obwód przekroju =

a = 4 (slider from 0.1 to 10, step 0.1)
h = 6.1 (slider from 0.1 to 10, step 0.1)
S: (0, 0, h)
p1 = true
p2 = true
p3 = true
A: (((-a)) / 2, ((-a) * sqrt(3) / 2))
B: ((-x(A)), y(A))
wielokąt1, f, g, i, j, k, l, C, D, E, F = Polygon(A, B, 6)
b, powierzchniaABS, powierzchniaBCS, powierzchniaCDS, powierzchniaDES, powierzchniaEFS, powierzchniaAFS, krawędźAS, krawędźBS, krawędźCS, krawędźDS, krawędźES, krawędźFS = Pyramid(wielokąt1, S)
m = Segment(A, D)
n = Segment(F, C)
p = Segment(B, E)
O = Intersect(p, m)
q = Segment(O, S)
G = Point(q)
c = Plane(G, wielokąt1)
H = Intersect(krawędźDS, c)
I = Intersect(krawędźCS, c)
J = Intersect(krawędźBS, c)
K = Intersect(krawędźAS, c)
L = Intersect(krawędźFS, c)
M = Intersect(krawędźES, c)
wielokąt2, k_1, j_1, i_1, h_1, m_1, l_1 = Polygon(K, J, I, H, M, L)
tekst4: "" + wielokąt2 + ""
tekst5: "" + ((6 * k_1)) + ""